Datashare 3 Course Outline 


Day. 1 

A. Datashare or Databuis 1100 Hardware Configuration & Capabilities 


B. Interpretive Language-DBCMP 


c. 

Data Definition 

DBCMP 

User's Guide pg. 


1. 

DIM 

page 

3-2 


2. 

FORM 

page 

3-2 


3. 

INIT 

page 

3-2 

D. 

Keyboard I/O 




1. 

KEYIN 

page 

7-1 


2. 

DISPLAY 

page 

7-7 

r~i 

Lj . 

Arithmetic Commands 




1. 

ADD 

page 

6-2 


2. 

SUB 

page 

6-2 


3- 

COMPARE 

page 

6-3 


4. 

MOVE 

page 

6-3 


5. 

Flags 

page 

6-1 

F. 

Transfer of Control 




1. 

GOTO 

page 

4-1 


2. 

STOP 

page 

4-3 

G. 

Sequential Disk I/O 

page 

7-10,7-16 


1. File Formatting, FILE statement page 3-1 

2. PREPARE, OPEN, CLOSE page 7-18,7-20,7-21 

3. Sequential READ, WRITE, WEOF page 7-25,7-33,7-39 

H. Generating, Compiling & Running a Datashare 

program page 8-1 

LAB: Sequential File Processing 

READING ASSIGNMENT: DOS. Manual-EDIT page 13-1 

DBCMP Manual-Arithmetic Instructions 
and Keyboard I/O pages 7-1/7-7 



£ax 2 


A. Arithmetics (continued) 



1 . 

MULT 


page 

6-2 


2. 

DIV 


page 

6-3 


3. 

STORE 


page 

6-4 


4. 

LOAD 


page 

6-4 

B. 

Transfer of Control 





1. 

BRANCH 


page 

4-1 


2. 

CALL, RETURN 


page 

4-2 


3. 

CHAIN 


page 

0o 

1 

■=f 


4. 

BEEP 


page 

-J 

1 

oo 

C. 

CONSOLE, CLOCK 


page 

7-7,5-9 

D. 

Disk 






1. 

Hardware 





2. 

Random File Format 

& Design 

page 

7-16 


3- 

Random READ, WRITE, 

WEOF 

page 

7-25,7- 


4. 

Continuation Read & 

Write 

page 

7-25,7- 


5. 

READ tab, WRITAB 


page 

7-26,7- 


E. DOS COMMANDS DOS USER'S GUIDE 

CAT,CHANGE,COPY,EDIT,FREE,KILL 
LIST,MIN,MOUT,NAME,REWIND,SAPP 


LAB: Random File Processing 

READING ASSIGNMENT: DOS. User's Guide (PART III, Review Commands cover 
in class) 
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Da.X 3 

A. PRINT,RELEASE 

B. ROLLOUT 

C. DOS. CHAIN COMMAND 

D. String Instructions 

1. Formpointer & Logical Length 

2. Instructions to change FP & LL 

BUMP,RESET,ENDSET,LENSET 
CLEAR,EXTEND 

3. Data Manipulation Instructions 

CMATCH,CMOVE,TYPE,MOVE 
APPEND,LOAD,STORE 

E. INCLUDE,EQU 


page 7-8,7-10 
page 4-7 

DOS USER 'S GUIDE 
pages 5-1/5-12 


page 8-5,8-6 


LAB: String Instructions 

READING ASSIGNMENT: 

DBCMP USER'S GUIDE-STRING INSTRUCTIONpage 5-1/5-12 
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Day 4 


A. 

TRAP & 

Trappable Conditions 

page 

4-4 

B. 

Disk (continued) 




1. 

Indexed File Format 

page 

7-16 


2. 

Indexed READ, WRITE, READKS, 

page 

7-27/7-31 



UPDATE, INSERT, DELETE 

page 

7-34,7-36/7 

C. 

DOS Commands 

DOS 

USER'S GUIDE 


1. 

REFORMAT 




2. 

INDEX 



D. 

DOS Tables 

DOS. 

USER'S GUIDE 

E. 

DOS Commands 




1. 

Files 




2. 

DUMP 




LAB: Indexed Sequential File Processing 

READING ASSIGNMENT: DBCMP User's Guide-Disk I/O 
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Dai 5 . 

A. ANSWER & MASTER 


B. Language Extensions (DB11 and 5500 DS) 


1. 

KEYIN - 

*IT, 

* JL, 

2. 

WRITE - 

*ZF, 

*MP 

3- 

REPLACE 

& SEARCH 


*ZF, 


#DE 


C. Datashare 3 System Considerations 
1. Keyboard & Screen I/O 


2. 

Disk I/O 



3. 

Paging, TABPAGE 

page 

4-10 

4. 

File Contention & PI 

page 

4-8 


D. DOS Generation (including DOSGEN,BOOTMAKE) 

E. Putting DS on Disk 

F. Configuring Datashare (DSCON) 

G. DOS. Commands 

AUTO, MANUAL, AUTOKEY, BACKUP 
BLOKEDIT, SORT, SUR 
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Lab Problems 




The Datapoint Processor 


Dofopoiri 1IOO 
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Day 1 




DATAS HARE III 

HARDWARE CONFIGURATION EXAMP.LE 



Multi-port adaptor 








Memory map of the DATASHARE INTERPRETER SYSTEM: 




A 


> 


f 13 , (/ f- 

y j' 


v p' 


\L 


USER PROGRAM DATA AREA 


P6 

DS INTERPRETER CONTAINING 


1. SCHEDULER 


2. STATH 


3. I/O BUFFERS 


4. USER INTERPRETER DATA 
WORKING STORAGE 


5. D 0 S 


, pit* 




_ A 




S 


,/J 
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DISPLAY 

AND KEYIN 

INSTRUCTION 

NAME 

DIM 

20 

ADDR 

DIM 

20 

CITY 

DIM 

15 

STATE 

DIM 

2 

ZIP 

FORM 

5 

ANS 

FORM 

1 


DISPLAY *ES,"NAMErg’' . *N ? ’'CITY:#": 

*N, "STATE:#",*P40: 4, “ZIP:fe5 fi 

•f tj j ' a t) <;v:/ V r 

KEYIN *P10:1,NAME,*P10:2,ADDR,*P10:3,CITY: 

*P 10:4^ SS*TE,*P45:4,ZIP,*P1:8,"MORE- : 
”feSTO DlSPCff^ - YES = 1, No = 2#",ANS 



DISPLAY KEYIN 
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ARITHMETIC INSTRUCTIONS 
AND FLAGS 


1. Rounding will occur on right truncation if the truncated 
digit is >_5- 

2. Left truncation occurs if the receiving (result) field 
is smaller than the sending field (after decimal point 
alignment). 

3. Literals may be used only in the source (sending) field-- 
never in the result (receiving) field. 

4. LESS flag indicates a negative result. 

5. EQUAL (ZERO) flag indilcates a zero result. 

6. OVER flag indicates left truncation ONLY . 
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Class Problem to Illustrate Truncation 


FOR 

FORM 

h 2} «; 

ONE 

FORM 

tl -| ti 

N 

FORM 

H 2 

CTR 

FORM 

H 1). I f 

X 

FORM 

4. 1 

PT5 

FORM 

"0.5" 

A1 

SUB 

ONE,CTR 


GOTO 

A5 if Zero 


ADD 

PT5,X 


GOTO 

A1 

A5 

ADD 

FOR, N 


COMPARE N 

TO ONE 


STOP 

If Zero [Equal] 


ADD 

ONE, N 


GOTO 

A1 


What is the value of X when the STOP instruction is executed? 
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DISK 


Physical Record Size 
Hardware 256 Bytes 

Software 249 Bytes 


Datapoin t Standards 

015 - End of Logical Record 

03 - End of Physical Record 

011 - Space Compression Character 

0 , 0 , 0 , 0 , 0 , 0,03 - End of File 
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DISK I/O 



HMMNlflnHUIIIH 



1. CP Before 


irfN , (\ f 


1. CP After 

2. CP Before 


TO r 1 - 


TT% 


2. CP After 

3. CP Before 

3. CP After-will be 
on first character 
of next record. 


-yij tpti TD •' 

1. READ FL,SEQ;NAME 

W ? » ^ 1 

2. READ FL^SEQ;NAME; 

3. READ FL,SEQ;BAL^ 
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DISK I/O 


Sequential Writes and the Character Pointer 



2. CP BEFORE 


1. WRITE FL,SEQj*-,NAME,BAL; ^ ^ 

2. WRITE FL,SEQ^NAME; § S " 

Note: *- in first WRITE turned off space compression 
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Octal 


Any number from fS thru 7 can be expressed in 3 

binary bits. Octal uses only 8 digits (ft- 7). There is 

no 8 or 9 in octal. 


Dec imal 

0 
1 
2 

3 

4 

5 

6 
7 

Memory in the Datapoint Processors consists of 8.bit bytes 
e.g. |1 £li |il 

To express the 8 bits as an octal number, starting from right 
to left, take groups of 3 bits and convert it to the correct 
decimal digit (0 thu 7). Since there will be 2 groups of 
3 bits, and one group of 2 bits, the 2 high order bits can 
only range from 0# to 11. 

e.g. & 25 

11 1 1 # 111 = #367 

Note that a lead ^ is used by Datapoint Software to indicate 
that this is an octal value rather than a decimal number. 


Binary 

001 
010 
01 1 
100 
101 

110 

! 

1 1 1 
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Decimal to Octal Conversion 


1. Decimal Values can be converted to octal by dividing 
the value by 8, and retaining the remainder. The 
remainder becomes the right most (least significant) 
digit of the octal number. Example: 48<^ = ??? Ci?) 


Remainder 


eg. 61 

81489 


Decimal--> Octal 
489 = ??1„ . 


2. Divide the result of the previous division by 8, again 
retaining the remainder. 


■'8 ref 


Remainder 


Decimal—> Octal 
489 = ?51„, 


3. Continue dividing the result of the previous calculation 
by 8, retaining the remainder, until no more division is 
possible. 


‘ srfi 


Remainder 


Decimal—> Octal 
489 = 751 r „ 


Example: 79o©> = ??? cg) 

jfl Remainder 

8 nr i 

8fT~ 1 

8f79 7 
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Oct al to Decimal Conversion 

Positional notation is one of the simplest methods for converting 
octal to decimal. Positional notation is multiplying each digit 
by the base (octal is base 8, decimal is base 1 j6) Raised to a 


certain power relative to it's position. 


eg. decimal 

5498 


5000 = 

5(1000) = 

5(10^) 



+ 

H00 = 

4(10$) 

4(10*) 



+ 

90 = 

9(10) 

9(10*) 



+ 

8 = 

8(1) 

8(10') 

Therefore, octal 

-> 

decimal 



Octal 

751 

- 

7(8*) 

= 7(64) = 

448 




+5(S 1 ) 

= 5(8) = 

40 




+1(8') 

=1(1) = 

1 






W9c»« 

Octal 

117 


1 (8 1 ) 

= 1(64) = 

64 




1 (8 1 ) 

= 1(8) = 

8 




7(8 e ) 

=7(1) = 

7 






79 C ,c) 
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Day 2 



DISK FILES 


BUFFERS: Each Separate 
Each 256 Bytes 

All I/O goes thru controller buffer in a two step operation. 

PROCESSOR-> BUFFER-> DISK 

The buffers are not assigned to any particular drive. 

This is controlled by the software. 


22 





DISK FILE E XAMPLE 


4 BUFFERS 
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CARTRIDGE DISK 


A BYTE equals 8 Bits 
A SECTOR equals 256 Bytes 
A CYLINDER equals 48 Sectors 
A CLUSTER equals 6 Sectors 
A TRACK has 24 Sectors 

Track f) is on top side of disk. 

Track 1 is on bottom side of disk. 

Track 0 has sectors fi - 27- 
Track 1 has sectors 40 - 67- 

40 
67 

A DISK has 203 Cylinders per disk. 

Cluster 0-3 are on the top side. 

Cluster 4-7 are on the bottom side. 

On Disk number j0 there is only 2.2 million available Bytes 
because of having the disk operating system on cylinders 
1 - 4, and the DOS tables on cylinder 0. 

The maximum number of files on any given disk is 256. 


□ 


_L 

□ 

0 

0 

0 

0 

□ 


1 

G~ 

t 

□ 

□ 
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FLEXIBLE DISK 


Physical Char acteristics 
1 Sector = 128 Bytes 
1 Diskette = 256,256 Bytes 
1 Inch = 3200 bits (Inside track) 

1 Track = 26 Sectors 
1 Diskette = 77 Tracks 
Logical I/O 

Sectors are paired in controller 
13 Sectors / track 
256 Bytes / Sectors 
Only 12 sectors used for Data 
13th Sector used for Directory 
Track d reserved for IBM corapatability 
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The logical numbering of the sectors of each track is staggered 
to take advantage of rotational delay. Thus, three sequential 
logical sectors may be read per revolution of the disk. 



Logical Sector Numbering 


Physical Sector Numbering 


Logical Sector Number 12 
always the directory for 
each track. 


The relationship of logical sectors from track to track is 
staggered to take advantage of rotational delay. Thus, three 
sequential directory segments may be read in a single revolution 
of the disk. 



Logical Sectors are 
staggered from track to 
track. 


Numbering is re-aligned 
to physical sector 0 
every fourth track. 


is 
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DISK I/O 


Random Reads and the Character Points 


DIM 15 


FORM 3.2 



CP Before 
CP Before 
CP Before 
CP Before 


1. ^*CP After 

2. CP After 

4. CP After 

5. CP Before 


5. CP After 


1. READ FL, RN ; NAME _ , 

B - - ^ 

2. READ FL,RN;NAME; 

3. READ FL,RN;BAL; -> this will result in a Format Error 


4. 

5. 


READ FL,RN;NAME 
READ FL,SEQ;NAME/ 



a Random Read followed by a Sequential 
Read allows processing of blocked 
records 
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DISK I/O 


Random Writes and the Character Pointer 



1. 

WRITE 

FL,RN;NAME,BAL 

v a Random Write followed by 

\ a Sequential Write allows 

2. 

WRITE 

FL,SEQ;NAME,BAL / 

* blocking 
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DOS COMMAND HANDLER 


DISK F ILES 

NAME/EXT - 1 - 3 characters 

EXT TA BLE 

CMP - Written in assembler, executable directly, system 
Utilities. 

ABS- Assembler program, user program 

TXT - Text, source and data 

DBC - Databus/Datashare, user programs 

QV n - Overlays for systems programs 

SY S- System files and programs that are unusual. 

P_RT- Print files 


EX: DBCMP 


Datashare 

Compile 


ZPROG, 

ZPROG/TXT 


ZPR01 , 


ZPRO 


1 /DBC 


ZPRG; L 

\ 

ZPAG/PRT LIST 


\ 
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TO GET LEADING ZEROES 


MUM FORM 4.2 

SNUM DIM 7 



L F 
L P 


LI CMATCH "K ", SNUM 

GOTO FINISH IF NOT EQUAL 
CMOVE "0 U , SNUM 
BUMP SNUM 
GOTO LI 
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l 

VAR LL 

A 

FP 

CONTENTS 


STRING 1 4 

2 

ABCDXLM 

ETX 

STRING2 6 

3 

DOGCAT 

ETX 

MOVE STRING 1 

TO STRING2 



STRING2 3 

1 

BCDCAT 

ETX 


STRING2 

6 

3 

DOGCAT 

ETX 

MOVE 

’’HELLO" 

TO STRING2 



STRING2 

5 

1 

HELLOT 

ETX 


STRING 1 9 

3 

AB100.327 

ETX 

NUMBER 0200 


#39•00 

ETX 

MOVE STRING 1 

TO NUMBER 



NUMBER 0200 


100.33 

ETX 
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MATCH 


SOURCE 

ABCDE 

ABC 

ZZZ 

ABC 

ABCD 


DESTINATION 


FLAG set 


ABCD EQUAL (Chars Compared are Equal) 

LESS (Dest. String is Shorter) 

Z NOT EQUAL (Chars Compared are 

not equal) 

NOT LESS (ASCII Value of Dest. 

String Not Less Than 
Source) 

AAA NOT EQUAL 

LESS (Value of Dest. Less Than 

Source) 

ABC EQUAL 

NOT LESS (Dest. String Length Not 
Less Than Source String 
Length) 

ABCDE EQUAL (# of Chars Compared are 

Equal) 

NOT LESS (Dest. String Length Not 
Less Than Source String 
Length) 
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A-101 
B- 1 02 
C-103 
D-104 
E-105 
F-106 
G-107 
H- 110 
1-111 
J-1 12 

K-113 
■L- 1 1 4 
M-115 
N-1 16 
0-117 
P-120 
Q-121 
R-122 
S-123 
T-124 
U-125 
V-126 
W-127 
X-130 
Y-131 
Z-132 


KEYBOARD CODING (ASCII) 


a-1 41 

0-060 

: -072 

b- 1 42 

1—061 

; -073 

c-143 

2-062 

< -074 

d-144 

3-063 

= -075 

e-145 

4-064 

> -076 

f-146 

5-065 

? -077 

g-147 

6-066 

! -133 

h-150 

7-067 

\ -176 

i-151 

8-070 

] -135 

j-152 

9-071 

~ -136 


Space -040 

- -137 

k-153 



1-154 

1-041 

@ -100 

m-155 

"-042 

{ -173 

n-156 

#-043 

\ -134 

o-157 

S-044 

' -140 

p-160 

— 045 

i -174 

q- 1 61 

&-046 

} -175 

r-162 

'-047 

Enter-01 5 

s-163 

(-050 

Cancel-030 

t-164 

)—051 

Backspace-010 

u-165 

*-052 

Del-177 

v- 1 66 

+-053 


w-167 

,-054 


x-170 

— 055 


y-171 

.-056 


z-172 

/-057 
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Day 4 



DISK OPERATING SYSTEMS 


Cataloging 


Up to 256 FILES does 



cyl 0 


cyl 202 


255 byte 


File Structure 


CLUSTER ALLOCATION 
TABLE 

Will indicate if 
cluster available 
for use or in use 


1 bit for each 
cluster 


Each byte points to a cylinder 
1 = cluster occupied 

AUTO 'D PFN is 0 if not specified otherwise - this is the 
DOS system program. 
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DIRECTORY ENTRY FORMAT 


RIB 

ADDRESS 


A FILE ENTRY 


CYLINDER 

# 

Cluster # 

Protection 

XXX 000 XXX(2 bits) 

RESERVED 

FOR 

f uture 

use 


Sub Directory 
Number 


8 bytes 


3 bytes 


TAKES 16 SECTORS 
RIB-Retrieval information 
block where location 
of data records is described 
and actual data starts 

1 entry = 16 BYTES 

WRITE PROTECTION gives 
both write and delete 


16 SECTORS 

16 ENTRIES/SECTOR-each entry has its own physical file number 
(physical location in directory) 

16 BYTES PER ENTRY 
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RETERIEVAL INFORMATION BLOCK 


FIRST & SECOND (MIRROR OF FIRST) 
SECTOR of every file 


RIB 


1 Byte 

PHYSICAL 

NUMBER 

FILE 


2 Bytes 

-.OGICAL RECORD 

NUMBER 


1 

/377 


2 Bytes f 

Segment ,1 

BLINDER # OF FIRST 
CLUSTER IN FILE 


Desc riptorl 
3 Bits ^L 

CLUSTER 

NO. 

AMT OF 
CLUSTERS 

5 


MORE SEGMENT 
DESCRIPTORS 



$377 (it 
segments 

all 

not used) 



FOLLOWING SECTORS contain actual 
user records 

PFN-actually location of file 
info, in director 

LRN-is for RIB 

1 for RIB COPY 

2 for 1st user data record 

SEGMENT DESCRIPTIONS 

Up to 126 seg. desc. 
a file 


Knowing cyl # and cluster # is sufficient because all segments must start 
at the beginning of a cluster and the cluster number is actually giving 
track and sector. 

3 ways to run out of space: no clusters left in C.A.T 

no room in directory 

no more segment descriptors in R.I.B. 
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NAMEFILE 


Aaron 

Bob 

. Cal 

Fred 

Ava 

Tra 

“A'dam 

HITT 

Shirley 

Gail ~ n 

Mona 

3m - 

tieil 

Ed 

Fou 

have 

Steve 

Carl 

Betty 

Halph 

Alan 

Lynn 

Mary 

fora 

Jack 

George 

Hon 

Sally 

Larry 

Sandy 

Bobby 

Kevin 


.—Aaron 

_Adam.. 

_Alan .. 

_to_ 

_Btox 

_£ 1113 ,. 

Bob 

Bobby 


ISAM 


AARON 

izuir 


AARON 


JACK 

TIE - 


rum 


Cal 


Jack 


Neil 

Carl 


Jill 


Ralph 

Dave 


Kevin 


Ron 

Ed 


Larry 


Sally 

Fred 


Lou 


Sandy 

Gail 


Lynn 


' Shirley 

George 


Mary 


Steve 

Ira 


Mona 


"Tom 
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DISK I/O 


Index Sequential Reads 


/TXT File 


/ISI File 



0 READ IFL, KEY;NAME,etc 
(if KEY = Benson) 

0 READKS IFL;NAME,etc. 

0 READS IFL,SEQ;NAME,etc 
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ISAM FO RMUL A 

Lowest Level: 

# of records/sectors = 250 Round 

Key Length + 7 Down 

# of sectors = # of Records _ Round 

# of Records/Sectors Up 


Next Level: 

# of records/sectors = 250 _ 

Key Length + 3 

# of sectors = # of Sectors on Previous Level 

# of Records/Sector 


Next Level: 

Repeat next level formula above by using the previous # of 
sectors. 
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ISAM FOR MULA 


EXAMPLE: Needed Information 


File Length = 9500 Records 
Key Length = 15 Characters 


LOWEST LEVEL: 


# of 

Records/Sector = 

250 

= 11.36 
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# of 

9500 

Sectors = 

= *336 

.63 = 864 



1 1 




NEXT 

LEVEL: 




# of 

Records/Sector = 

250 

= 13.89 = 

13 



18 


# of 

864 

Sectors = = 

13 

66.46 

= 67 


NEXT 

LEVEL: 




# of 

Records/Sector = 

250 

= 13.89 = 

13 



18 



# of 

67 

Sectors = 

13 

= 5. 15 

= 6 
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ISAM FORMULA 


EXAMPLE: 

NEXT LEVEL : 

# of Records/Sector = 

6 

# of Sectors =_ = 

13 

Add Head er Re cord = 4 


Lowest Level 
Next Level 
Next Level 
Next Level 
Header Record 
Total 


250 

_ = 13-89 = 13 

18 

1 

ISAM EXAMPLE TALE 

864 

67 

6 

1 

4 

942 
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ISAM EXAMPLE #2 


Needed Information 

File Length = 9500 Records 
Key Length = 5 Characters 


ISAM EXAMPLE # 


Lowest Level 475 
Next Level 16 
Next Level 1 
Header Record 4 
TOTAL 496 


2 TABLE 
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Day 5 




NOTES 
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Sample Solutions 

to 

Lab Problems 



Lab Prob lem 
Datashare 


Sequential File Processing 

There exists a file on disk called NAMEFILE with the 
following layout: 


ACCT 

FORM 

4 (Account Number) 

NAME 

DIM 

20 

STREET 

DIM 

35 

CITY 

DIM 

20 

STATE 

DIM 

15 

ZIP 

DIM 

5 

BAL 

FORM 

4.2 (Current Balance) 


NAMEFILE is to be read sequentilly and a new file is to 
be created with update information. 

The information in NAMEFILE is to be displayed on the 
screen as each record is read. 

For each account, allow for a series of deposits and 
withdrawals against the current balance to be keyed in by the 
operator. Update the balance, display the new balance (do not 
allow an account to be overdrawn), and write the updated record 
to the newly created file. 


NOTE: The first data record on Namefile contains the number 

of data records on the file. For the purpose of this 
lab problem, it should be by-passed. 
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PAGE 


2 


T0DD2/TXT:DRO 


55. 


56. 


. *** WITHDRAWAL ROUTINE *** 

57. 





58. 

01570 

WIThRTN 

KEY IN 

*P1:11,*EF,"WITHDRAWAL AMOUNT: ",WITHD 

59. 

01623 


SUB 

WITHD,HBAL 

60. 

01630 


GOTO 

OVERDS IF LESS 

61. 

01634 


MOVE 

HBAL,BAL 

62. 

01641 


GOTO 

TOQBIGS IF OVER 

63. 

01645 


DISPLAY 

*P1:9,*EL,"NEW BALANCE: ",HBAL 

64. 

01672 


GOTO 

NEXT 

0 D • 

66. 


. *** ERROR ROUTINE FOR OVERDRAWN ACCOUNTS *** 

67. 


• 



68. 

01675 

OVERDA 

SUB 

DEP,HBAL 

69. 

01702 


GOTO 

OVERD 

70. 

01705 

OVERDS 

ADD- 

WITHD,HBAL 

71. 

01712 

OVERD 

DISPLAY 

*P1Q:12,*EL,"******ACCOUNT OVERDRAWN - LAST TRANS": 

72. 

01763 



"ACTION NOT ACCEPTED******",*W,*W,*W 

73. 

02026 


BEEP ^ 

74. 

02027 


DISPLAY^*)?! : 9 , *EL, "CURRENT BALANCE: ' , HBAL 

75. 

02060 


GOTO 

NEXT 

76. 


* 



77. 


. *** ERROR ROUTINE IF BALANCE TOO LARGE FOR FIELD *** 

78. 


# 



79. 

02063 

TGGBIGA 

SUB 

DEP,HBAL 

80. 

02070 


MOVE 

HBAL,BAL 

81. 

02075 


GOTO 

TOOBIG 

82. 

02100 

TOGBIGS 

ADD 

WITHD,HBAL 

83. 

02105 


MOVE 

HBAL,EAL 

84. 

02112 

TOOBIG 

DISPLAY 

*P10:12,*EL,' 1 ******BALANCE EXCEEDS LIMITS - LAST TRANS 

85. 

02170 



"ACTION NOT ACCEPTED******",*W,*W,*W 

86. 

02225 


BEEP 


87. 

02226 


DISPLAY 

*P1:9,*EL,"CURRENT BALANCE: ",BAL 

88. 

02257 


GOTO 

NEXT 

89. 


. 



90. 


**** 

WRITE NEWLY UPDATED RECORD **** 

91. 


. 



92. 

02262 

WRITE 

WRITE 

OUTFL,SEQ;ACCT,NAME,STREET,CITY,STATE,ZIP,BAL 

93. 

02306 


GOTO 

START 

94. 


. 



95. 


. *** NO MORE PROCESSING TO BE DONE ON THIS FILE *** 

96. 


• 



97. 

02311 

FINISH 

READ 

INFL,SEC J ACCT,NAME,STREE1,CITY,STATE,ZIP,BAL 

9b. 

02335 


GOTO 

EOU IF OVER 

99. 

02341 

DONE 

WRITE 

OUTFL,SEQ;ACCT,NAME,STREET,CITY,STATE,ZIP,BAL 

100. 

02365 


GOTO 

FINISH 

101. 


• 



102. 


. ****** end of 

JOB ****** 

103. 


• 



104. 

02370 

EQJ 

WEOF 

OUTFL,SEQ 

105. 

02404 


CLOSE 

INFL 

106. 

02407 


CLOSE 

OUTFL 

107. 

02412 


DISPLAY 

*ES,*P1G:5,"******END OF PROGRAM******",*W,*W,*M,*W 

1Gb. 

02456 


STOP 
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1. . ******** SEQUENTIAL FILE PROCESSING LAB - DAY 1 ******** 


2. 


• 



3. 

00000 

ACCT 

FORM 

4 -• 

4. 

00006 

NAME 

DIM 

20 

5. 

00035 

STREET 

DIM 

35 

6. 

00103 

CITY 

DIM 

20 

7. 

00132 

STATE 

DIM 

15 

8. 

00154 

ZIP 

DIM 

5 

9. 

00164 

SAL 

FORM 

4.2 

10. 

00175 

HBAL 

FORM 

5.2 

11. 

00207 

WIT HD 

FORM 

4.2 

12. 

00220 

DEP 

FORM 

4.2 

13. 

00231 

INFL 

FILE 


14. 

00252 

GUTFL 

FILE 


15. 

00273 

SEQ 

FORM 

"-1 “ 

16. 

00277 

ANS 

FORM 

1 

17. 


• 



18. 


*** 

BEGINNING OF PROGRAM *** 

19. 


• 



20. 

01001 

BEGIN 

OPEN 

INFL,"NAMEFILE" 

21. 

01024 


PREPARE OUTFL,"ZNEW" 

22. 

01043 


READ 

INFL,SEQ,-ACCT (BYPASSES FIRST RECORD) 

23. 


• 



24. 


. ****** MAIN 

PROCESSING ****** 

25. 


• 



26. 

01053 

START 

READ 

INFL,SEQ;ACCT,NAME,STREET,CITY,STATE,ZIP,BAL 

27. 

01077 


GOTO 

EOJ IF OVER 

28. 

01103 


DISPLAY *ES,"NAME: ", NAME,*NSTREET: ",STREET,*N: 

29. 

01135 



-."CITY: ",CITY,*N,"STATE: “ , STATE, *P4 5:4: 

30. 

01167 



"ZIP: ", ZIP,*P1:6,“ACCOUNT: ",ACCT,*P1:8,"ORIG" 

31. 

01223 



"INAL BALANCE: ",BAL 

32. 

01244 


MOVE 

BAL,HBAL 

33. 

01251 

NEXT 

KEYIN 

*P1:11,*EF,"KEY l=DEPOSIT, 2*WITHDRAWAL, 3=NEXT 

34. 

01322 



"RECORD, 4=STOP PROCESSING: ",ANS 

35. 

01360 


COMPARE "l",ANS 

36. 

01401 


GOTO 

vDEPRTN IF EQUAL 

37. 

01405 


COMPARE "2",ANS 

38. 

01420 


GOTO 

WITHRTN IF EQUAL 

39. 

01424 


COMPARE "3",ANS 

46. 

01437 


GOTO 

WRITE IF EQUAL 

41. 

01443 


COMPARE ,, 4",ANS 

42. 

01456 


GOTO 

DONE IF EQUAL 

43. 

01462 


BEEP 


44. 

01463 


GOTO 

NEXT 

45. 


• 


ROUTINE *** ^ 

4b. 


* * * 

DEPOSIT 

47. 


• 



48. 

01466 

DEPRTN 

KEYIN 

*P1:11,*EF,"DEPOSIT AMOUNT: H,DEP 

49. 

01516 


ADD 

DEP,hBAL 

50. 

01523 


GOTO 

OVERDA IF LESS 

51. 

01527 


MOVE 

HBAL,BAL 

52. 

01534 


GOTO 

TOOBIGA IF OVER 

53. 

01540 


DISPLAY *P1:9,*EL,"NEW BALANCE: ",HBAL 

54. 

01565 


GOTO 

NEXT 
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Lab Problem 


Datashare 


Random File Processing 

There are 2 files on the disk, NAMEFILE and ACCTFILE. 
Both files are random files. By keying in an account 
number, ACCTFILE can be accessed to obtain the record num¬ 
ber of the corresponding account in NAMEFILE. The account 
information in NAMEFILE can then be read and displayed 
on the screen. 

ACCTFILE consists of 200 sectors. Each sector con¬ 
tains a series of 6 byte fields with the following format: 
LOWNUM FORM 2 (last 2 digits of a valid acct. number) 
RECNUM FORM 4 (record number of that account 

in NAMEFILE) 

To access the correct record in NAMEFILE, keyin the 
4 digit account number. Multiply the 2 high order digits 
of the account number by 2. This result should be used 
for a random read of ACCTFILE. Then read each 6 byte field 
in that record until LOWNUM matches the last 2 digits of 
the keyed in account number, you will now have the record 
number (in RECNUM) of the desired account in NAMEFILE. 

Since ACCTFILE was initialized to zeros, a LOWNUM 
and RECNUM of all zeros indicates that the requested 
account number is not on the file. 

NOTE: In ACCTFILE, each sector is 1 logical record. LOWNUM 

and RECNUM are a series of fields within this record. 
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55. 




56. 


*** 

ERROR ROUTINE FOR INVALID ACCOUNT NUMBER *** 

57. 


. 


58. 

01545 

NGREC 

DISPLAY *P1:12 , *EL r '■ INVALID ACCOUNT NUMBER" , *W , *w 

55. 

01603 


BEEP 

60. 

01604 


GOTO GO 

61. 

01607 


STOP 

62. 

01610 


STOP 
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1. . ******** RANDOM FILE PROCESSING LAB - DAY 2 ******** 

2 . 


3. 

00000 

ANS 

FORM 1 


4. 

00003 

ACCT 

FORM 4 


5. 

00011 

NAME 

DIM 20 


6. 

00040 

STREET 

DIM 35 


7. 

00106 

CITY 

DIM 20 


8. 

00135 

STATE 

DIM 15 


9. 

00157 

ZIP 

DIM 5 


10. 

00167 

BAL 

FORM 4. 

2 

11. 

00200 

RN 

FORM 4 


12. 

00206 

SEQ 

FORM "- 

1‘* 

13. 

00212 

INFL 

FILE 


14. 

00233 

AFL 

FILE 


15. 

00254 

LOWNUM 

FORM 2 


16. 

00260 

RECNUM 

FORM 4 


17. 

00266 

LOW 

FORM 2 


18. 


# 



19. 


*** 

BEGINNING 

OF PROGRAM *** 

20. 


. 



21. 

01001 

START 

OPEN 

INFL, "NAMEFILE 

22. 

01024 


OPEN 

AFL,"ACCTFILE" 

23. 

01047 


DISPLAY 

*ES, "PROGRAM START-UP'* ,*W,*W,*W,*W 

24. 

01076 

GO 

REYIN 

*ES,"KEYIN ACCOUNT NUMBER: ",RN 

25. 

01131 


MOVE 

RN,LOW 

26. 

01136 


DIV 

"100",RN 

27. 

01153 


MULT 

" 2 " , RN 

28. 


• 



29. 


*** 

FIND RECORD NUMBER ON ACCOUNT FILE *** 

30. 





31. 

01166 

AREADl 

READ 

AFL,RN;LOWNUM,RECNUM; 

32. 

G12oo 

COM PA 

COMPARE 

"0",RECNUM 

33. 

01213 


GOTO 

NOREC IF EQUAL 

34. 

01217 


COMPARE 

LOWNUM,LOW 

35. 

01224 


GOTO 

OKA IF EQUAL 

36. 

01230 


READ 

AFL,SEQ;LOWNUM,RECNUM? 

37. 

01242 


GOTO 

COM PA 

38. 





39. 


* * * 

FIND RECORD ON NAMEFILE *** 

40. 


* 



41. 

01245 

OKA 

READ 

INFL,RECNUM;ACCT,NAME,STREET,CITY,STATE 

42. 

01271 


DISPLAY 

"ACCOUNT: ",ACCT,*N,"NAME: ",NAME,*N 

43. 

01322 



"STREET: ",STREET,*N,"CITY: ",CITY,* 

44. 

01351 



"STATE: ",STATE,*N,"ZIP: ",ZIP,*N: 

45. 

01406 



"BALANCE: ",BAL 

4 6. 

01422 

ASK 

KEY1N 

*P1:12,*EL,"MORE? 1=YES 2=NO: ",ANS 

47. 

01454 


COMPARE 

“1",ANS 

48. 

01467 


GOTO 

GO IF EQUAL 

49. 

01473 


COMPARE 

"2",ANS 

50. 

01506 


GOTO 

ASK IF NOT EQUAL 

51. 

01512 


DISPLAY 

*ES,"END OF PROGRAM 1 ,*W,*W,*W 

52. 

01530 


CLOSE 

INFL 

53. 

01541 


CLOSE 

AFL 

54. 

01544 


STOP 
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STRING PROBLEM 


STRING 

DIM 

10 

COLLAT 

IN IT 

“ABODE— 

RESULT 

DIM 

10 


>zj^2 


>9” 


1. Assume string contains "ZMNPABO194" 

2. MOVE THE STRING characters to the RESULT field in the 


order given in COLLAT 

EX - STRING ZMNP 

COLLAT ABC->Z012->9 

RESULT WOULD BE MNPZ 


Show string instructions used to accomplish this 


O r’- 




X, 


ft?: £ 

: hi rcb 


3 




R RSOl. T 

' ST 6 ‘ & 

Sift -tJC , 

p '■ t p 


r x ■ Rf ' 


CMO^C' 


j 


L A 


i, ! '■ 


/. 




gt-nr srKnJC 

Caid i ® 

0 U M ft ** ^ 

• i y »r~" ,, I # r I 

i~.rt ? //- W v /■ -• 


vTT£> r 
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1. 

2. 

3. 


. ****** STRING MANIPULATION LAB - DAY 3 ****** 

00000 

MON 

FORM 2 


4. 

00004 

MON 1 

L1M 2 


5. 

00011 

AM O N 

DIM 3 


6. 

00017 

CTR 

FORM 2 


7. 

00023 

TABLE 

INIT ,! JANFEBMARAPRMAYJUNJULAUGSEPQCTNOVDEC " 

8. 

00072 

ADA1E 

INIT ” 

, 19 " 

9. 

00111 

WDAIE 

DIM 12 


10. 

00130 

INDATE 

DIM 12 


11. 

00147 

ANS 

DIM 1 


12. 


. 



13. 


. ****** BEGINNING OF PROGRAM ****** 

14. 


• 



15. 

01001 

START 

MOVE 

"I",CTR 

16. 

01014 


RESET 

TABLE 

17. 

01020 


KEilN 

*ES, DATE IN ALPHA (MMM DD, YYYY) OR NUMERIC (MMDDYY) 

18. 

01103 



INDATE 

19. 

01106 


TYPE 

INDATE 

20. 

01111 


GOTO 

NUMERIC IF EQUAL 

21. 


• 



22. 


*** 

ALPHA TO NUMERIC CONVERSION *** 

23. 


< 



24. 

01115 

ALPHA 

MOVE 

INDATE,AMON 

25. 

01122 


MATCH 

AMON,TABLE 

26. 

01127 


GOTO 

OKA IF EQUAL 

27. 

01133 


BUMP 

TABLE,3 

28. 

01137 


GOTO 

ERROR IF EOS 

29. 

01143 


ADD 

*'l" ,CTR 

30. 

01156 


GOTO 

ALPHA 

31. 

01161 

OKA 

MOVE 

CTR,NDATE 

. 32. 

01166 


RESET 

INDATE,6 

33. 

01172 


LENSET 

INDATE 

34. 

01175 


RESET 

INDATE,5 

35. 

01201 


ENDSET 

NDATE 

36. 

01204 


APPEND 

INDATE,NDATE 

37. 

01211 


RESET 

INDATE,12 

38. 

01215 


RESET 

INDATE,11 

39. 

01221 


APPEND 

INDATE,NDATE 

40. 

01226 


RESET 

NDATE 

41. 

01232 


DISPLAY 

"YOUR CONVERTED ALPHA DATE IN NUMERIC IS ",NDATE,*to,* 

42. 

01311 

ASK 

KEYIN 

"KEYIN TO CONTINUE Y=YES N=NC ",ANS 

43. 

01352 


MATCH 

"Y",ANS 

44. 

01366 


GOTO 

START IF EQUAL 

45. 

01372 


MATCH 

"N",ANS 

46. 

01414 


GOTO 

OUT IF EQUAL 

47. 

01420 


BEEP 


48. 

01421 


GOTO 

ASK 

49. 


. 



50. 


*** 

NUMERIC TO 

ALPHA CONVERSION *** 

51. 


. 



52. 

01424 

NUMERIC MOVE 

INDATE,MON1 

53. 

01431 


MOVE 

MON1,MON 

54. 

01436 


MULT 

"3",MON 
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55. 

01451 

SUB 

"2",MON 

56. 

01464 

RESET 

TABLE,MON 

57. 

01471 

GOTO 

ERROR IF EOS 

58. 

01475 

HOVE 

TABLE,AMON 

59. 

01502 

MOVE 

AMON,ADATE 

60. 

01507 

RESET 

INDATE,4 

61. 

01513 

LENSET 

INDATE 

62. 

01516 

RESET 

INDATE,3 

63. 

01522 

RESET 

ADATE,4 

64. 

01526 

APPEND 

INDATE,ADATE 

65. 

01533 

RESET 

INDATE,6 

66. 

01537 

RESET 

INDATE,5 

67. 

01543 

RESET 

ADATE,10 

68. 

01547 

APPEND 

INDATE,ADATE 

69. 

01554 

DISPLAY 

" YOUR CONVERTED DATE IN ALPHA IS 11 , ADATE , *W , *W , *vv 

70. 

01623 

GOTO 

ASK 

71. 

72. 


. ****** ERROR : 

ROUTINE ****** 

73. 

74. 

01626 

ERROR DISPLAY 

,; ******NOT CORRECT MONTH** ****", *ft, *w, *W, *W, *N 

75. 

01672 

BEEP 


76. 

01673 

GOTO 

ASK 

77. 

78. 


. ****** END of 

JOB ****** 

79. 

80. 

01676 

OUT DISPLAY 

*' ******END OF DATE CONVERSION PROGRAM******" , *W, *K , *w , *K 

81. 

01756 

BEEP 


82. 

01757 

STOP 


83. 

01760 

STOP 
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Lab Problem 


Datashare 


String Instructions 

Write a program to key in a date and display it back. 
The date may be keyed in a numeric format (e.g. 101575) or 
alpha (e.g. OCT 15, 1975). If the date is given in numeric, 
display it back in alpha. If it is given in alpha, display 
it back in numeric. In either case, make use of a table of 
months with the following format: 

TABLE IN IT ,f JANFEBMARAPRMAY JUN JULAUGSEPOCTNOVDEC" 
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Lab Problem 
Datashare 


Index Sequential File Processing 

1. Using DOS, copy NAMEFILE to a work file. 

2. Index the work file on the name field (positions 5 - 24). 

3. Write a program in Datashare to: 

a. Access and display records on the work file by 
keying in the name. 

b. Update the work file by making changes to the 
address and balance. 

c. Delete records. 

'd. Add new records to the file. 
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2. 


* 



3. 

00000 

ACCT 

DIM 4 


4. 

00007 

NAME 

DIM 20 


5. 

00036 

STREET 

DIM 35 


6. 

00104 

CITY 

DIM 20 


7. 

00133 

STATE 

DIM 15 


b. 

00155 

ZIP 

DIM 5 


9. 

00165 

BAL 

FORM 4. 

2 

10. 

00176 

KEY 

DIM 20 


11. 

00225 

FL 

IFILE 


12. 

00257 

NSTREET 

DIM 35 


13. 

00325 

NCITY 

DIM 20 


14. 

00354 

NSTATE 

DIM 15 


15. 

00376 

NZ IP 

DIM 5 


16. 

00406 

NBAL 

FORM 4. 

2 

17. 

00417 

ANS 

DIM 1 


18. 


• 



19. 


. ****** BEGINNING OF PROGRAM ****** 

20. 


• 



21. 

01401 

START 

OPEN 

FL,‘‘ZPOINTER" 

22. 


. 



23. 

01424 

ASK 

KEYIN 

*ES,*P1:11 *"A=ADD U=UPDATE D=DELETE L=LQOK 

24. 

ul502 


CMATCH 

•'A" ,ANS 

25. 

01506 


GOTO 

ADDIT IF EQUAL 

26. 

01512 


CMATCH 

"U",ANS 

27. 

01516 


GOTO 

GETKEY IF EQUAL 

28. 

01522 


CMATCH 

"D" , ANS 

29. 

01526 


GOTO 

GETKEY IF EQUAL 

30. 

01532 


CMATCH 

"L" , ANS 

31. 

01536 


GOTO 

GETKEY IF EQUAL 

32. 

01542 


CMATCH 

11 E" , ANS 

33. 

01546 


GOTO 

ENDJOB IF EQUAL 

34. 

01552 


BEEP 


35. 

01553 


GOTO 

ASK 

36. 


. 



37. 

01556 

GETKEY 

KEYIN 

*ES,*P1:11, “KEYIN NAME: *’ ,KEY 

3b. 


. 



39. 

01602 

READ 

READ 

FL,KEY;ACCT,NAME,STREET,CITY,STATE,ZIP,BAL 

40. 

01626 


GOTO 

BAD IF OVER 

41. 

01632 


DISPLAY 

*P1: 1, " NAME: ", NAME, *N,*EL,” STREET: “ 

42. 

01670 



"CITY: ",CITY,*N,*EL f "STATE: ", STATE,*] 

43. 

01732 



ZIP,*N,*EL, "BALANCE: “ ,BAL, *N, *EL, 11 ACCOUNT 

44. 

01767 


CMATCH 

"D",ANS 

45. 

02001 


GOTO 

DELETE IF EQUAL 

46. 

02005 


CMATCH 

"U" , ANS 

47. 

02011 


GOTO 

UPDATE IF EQUAL 

4&. 


. 



49. 

02015 

ASK2 

KEYIN 

*P1:12,*EL,“N=NEXT FUNCTION: ",ANS 

50. 

02046 


CMATCH 

"N" ,ANS 

51. 

02052 


GOTO 

ASK IF EQUAL 

52. 

02056 


BEEP 


53. 

02057 


GOTO 

ASK2 
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55. 


. *** DELETE ROUTINE *** 

56. 


. 



57. 

02062 

DELETE 

DELETE 

FL,KEY 

58. 

02067 


DISPLAY 

*P1:12,*EL,KEY," DELETED",*W,*W,*W 

59. 

02112 


GOTO 

ASK 

60. 


• 



61. 


. *** ADDITIONS 

TO FILE *** 

62. 


• 



63. 

02115 

ADDIT 

KEYIN 

*ES , "NAME: " ,KEY , *N , " STREET: ",STREET, *N : 

64. 

02147 



"CITY: ",CITY,*N,"STATE: ",STATE,*N: 

65. 

02177 



"ZIP: ",ZIP,*N,"BALANCE: ",BAL,*N: 

66. 

02227 



"ACCOUNT: ",ACCT 

67. 

02243 


TRAP 

DUPKEY IF IO 

68. 

02247 


WRITE 

FL,KEY;ACCT,KEY,STREET,CITY,STATE,ZIP,BAL 

69. 

02273 


TRAPCLR 

IO 

70. 

02276 


DISPLAY 

*P1:12,*EL,KEY," ADDED TO FILE",*W,*W,*W 

71. 

02327 


GOTO 

ASK 

72. 


• 



73. 


. *** UPDATE ADDRESS AND BALANCE *** 

74. 


• 



75. 

02332 

UPDATE 

KEYIN 

*P40:2,"STREET: ",NSTREET,*P40:3,"CITY: ",NCITY: 

76. 

02365 



*P40:4,"STATE: ",NSTATE,*P4Q:5,"ZIP: ",NZIP: 

77. 

02425 



*P40:6,"BALANCE: ”,NBAL 

78. 

02444 


RESET 

NSTREET 

79. 

02450 


GOTO 

NEWCITY IF EOS 

80. 

02454 


MOVE 

NSTREET,STREET 

81. 


• 



82. 

02461 

NEWCITY 

RESET 

NCITY 

83. 

02465 


GOTO 

NEWSTAT IF EOS 

84. 

02471 


MOVE 

NCITY,CITY 

85. 


« 



86. 

02476 

NEWSTAT 

RESET 

NSTATE 

87. 

02502 


GOTO 

NEWZIP IF EOS 

88. 

02506 


MOVE 

NSTATE,STATE 

89. 


• 



90. 

02513 

NEWZIP 

RESET 

NZ IP 

91. 

02517 


GOTO 

NEWBAL IF EOS 

92. 

02523 


MOVE 

NZIF,ZIP 

93. 


• 



94. 

02530 

NEtoBAL 

COMPARE 

•‘0" ,NBAL 

95. 

02543 


GOTO 

NEWREC IF EQUAL 

96. 

02547 


MOVE 

NBAL,BAL 

97. 


• 



98. 

02554 

NEWREC 

UPDATE 

FL;*25,STREET,CITY,STATE,ZIP,BAL 

99. 

02605 


MOVE 

"L",ANS 

100. 

02621 


GOTO 

READ 

101. 


• 



102. 


. *** END OF PROCESSING *** 

103. 


• 



104. 

02624 

ENDJOB 

CLOSE 

FL 

105. 

02627 


DISPLAY 

*ES,*P30:5, "****** END OF JOB ****** 11 , *w, *W, *W , *W 

106. 

02671 


STOP 



107. 

108. . ****** INVALID KEY ****** 
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109. 





110. 

02672 

BAD BEEP 



111. 

02673 

DISPLAY *P1;12,*EL,KEY," 

NOT ON FILE 

- TRY AGAIN " , *W, *W , *W 

112. 

02736 

GOTO ASK 



113. 


• 



114. 


. ****** DUPLICATE key ****** 



115. 


. 



116. 

02741 

DUPKEY BEEP 



117. 

02742 

DISPLAY *P1:12,*EL,NAME, 

“ ALREADY ON 

FILE; NEW INFO REJECTED' 1 

118. 

03025 

GOTO ASK 



119. 

03030 

STOP 



120. 

03031 

STOP 
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PROGRAM RELEASE/REVISION FORM 


PROGRAM NUMBER: C00134 

SYMBOL/VER.REV: CTOS 3.2 

SHORT DESCRIPTION: Selectric Typewriter Driver 

TYPE: 2 cat-rev #2 TYPE 1.1 

DATE: November 16, 1972 

LISTING: available 

SOURCE: available 

SUPPORT: 8k version 1 with CTOS 

NEW/CHANGE: change 

PURPOSE/CHANGES: 

This tape is being re-released with no changes to the 
program TYPE. The only change is to the catalog. The source 
of TYPE is no longer included on C00134. The source/object 
tape is P00344. 


RELEASOR'S 

cc: 


j. 


SIGNATURE: 

Document Control 
Technical Publications 
Systems Engineering 
Quality Control 
Snippinq 

International Marketing 




